home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00066_DragDropColor.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.3 KB  |  114 lines
  1. --
  2. -- DragDropColor
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag
  13.  
  14. --JCODE
  15. global gUI
  16.  
  17. on new me
  18.   -- initialize constants:
  19.   set delaySecs = 1
  20.   
  21.   set ancestor = new (script "DragDropSetUp")
  22.   set responseFlag = TRUE
  23.   
  24.   -- add (the actorList, new (script "ObjectUpdater", me))
  25.   return me
  26. end
  27.  
  28.  
  29. on destruct me
  30.   if objectP (ancestor) then destruct (ancestor)
  31.   set ancestor = 0
  32. end
  33.  
  34.  
  35. on noResponse me
  36.   set responseFlag = FALSE
  37. end
  38.  
  39.  
  40. on initializeRound me
  41.   hideDraggables (me)
  42.   initializeRound (ancestor)
  43.   showDraggables (me)
  44.   showTargets (me)
  45.   initPlay (me)
  46. end
  47.  
  48.  
  49. on mouseDown me, spr
  50.   if not isDraggable (me, spr) then return 0
  51.   
  52.   -- drag until release:
  53.   set testSpr = dragSprite (me, spr)
  54.   if testSpr = -1 then return 1  -- drag ended in starting position (exactly)
  55.   
  56.   -- on release of the mouse
  57.   -- check to see if the sprite is overlapping the correct container:
  58.   
  59.   set matchSprite = checkMatch (me, spr, testSpr)
  60.   hideUnderSprite (me)
  61.   
  62.   if matchSprite then
  63.     -- if a match, snap the draggable to position and stick it there.
  64.     snapToPosition (me, spr, matchSprite)
  65.     showDraggable (me, spr)  --stickDraggable (me, spr)
  66.     hideTarget (me, matchSprite)
  67.     
  68.     --set the backColor of sprite matchSprite to the foreColor of sprite spr
  69.     --updateStage
  70.     
  71.     moveOffScreen (me, matchSprite)
  72.     
  73.     -- play the good response sound 
  74.     if responseFlag then playResponseSound(1, 1)
  75.     -- play the proper "ID" sound
  76.     playSprite (gUI, spr, #ID)
  77.     
  78.     -- move a bar graph if one has been set up:
  79.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  80.     
  81.     if not done (me) then 
  82.       initPlay (me)
  83.     end if
  84.     
  85.   else
  86.     showDraggable (me, spr)
  87.     -- if no match, then move it back to it's starting position:
  88.     playResponseSound(0, 1)
  89.   end if
  90.   
  91.   return 1  
  92. end
  93.  
  94.  
  95.  
  96. -- check to see if we are done.  
  97. -- if so, then do an action.
  98.  
  99. on done me
  100.   if checkDoneTargets (ancestor) then 
  101.     wait (me, delaySecs)
  102.     go "finish"
  103.     unloadCast (me)
  104.     return 1
  105.   else
  106.     return 0
  107.   end if
  108. end
  109.  
  110.  
  111. on initPlay me
  112.   initHandCursor ("hand", getDraggableList (me))
  113. end
  114.